home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Programming / fpc / amigainc / tagutils.inc < prev   
Encoding:
Text File  |  1998-09-22  |  438 b   |  27 lines
  1.  
  2. {
  3.    tagutils.inc
  4.  
  5.    Some handy functions to deal with taglist.
  6.    At least until fpc have array of const.
  7. }
  8.  
  9. procedure SetTags(ti : pTagItem; item, data : Longint);
  10. begin
  11.     with ti^ do begin
  12.        ti_Tag := item;
  13.        ti_Data := data;
  14.     end;
  15. end;
  16.  
  17. function TagItem(item, data : Longint): tTagItem;
  18. var
  19.    temp : tTagItem;
  20. begin
  21.    with temp do begin
  22.       ti_Tag := item;
  23.       ti_Data := data;
  24.    end;
  25.    TagItem := temp;
  26. end;
  27.